home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 10, No. 08 (1989-08)(MindCraft Publishing)(Side A).zip / Nibble Volume 10, No. 08 (1989-08)(MindCraft Publishing)(Side A).po / MOVER.bas < prev    next >
BASIC Source File  |  1996-12-24  |  723b  |  12 lines
  1. 10  IF  PEEK(104) < >64  THEN 63990: REM  do only once
  2. 63989  END : REM  don't fall in here by accident
  3. 63990  POKE 60,0: POKE 61,8: REM  beginning address ($0800)
  4. 63991  POKE 62, PEEK(175): POKE 63, PEEK(176): REM  ending address
  5. 63992  POKE 66,0: POKE 67,64: REM  destination address ($4000)
  6. 63993  POKE 768,160: POKE 769,0: POKE 770,76: POKE 771,44: POKE 772,254: CALL 768: REM clear Y reg & call monitor move ($FE2C) to move prgm
  7. 63994  POKE 106, PEEK(106) +64 -8: REM  reset VARTAB
  8. 63995  POKE 108, PEEK(108) +64 -8: REM  reset ARYTAB
  9. 63996  POKE 110, PEEK(110) +64 -8: REM  reset STREND
  10. 63997  POKE 176, PEEK(176) +64 -8: REM  reset PRGEND
  11. 63998  POKE 104,64: REM  reset TXTTAB
  12. 63999  RUN : REM  a sure way to restart